''========================================================
'' Autor: 		Luis Lara
'' Fecha Creación: 	27/1/2014
'' Descripcion: 	Clase perteneciente a la capa de negocios
''========================================================

Imports CapaDatos
Imports CapaEntidad

Public Class CN_CD_Empresas

	Public Sub InsertarCD_Empresas(ByVal CD_Empresas As CD_Empresas, ByVal conexion As String, ByRef Verificador As Integer)
		Try
			Dim claseCapaDatos As New CapaDatos.CD_CD_Empresas()
			claseCapaDatos.InsertarCD_Empresas(CD_Empresas, conexion, Verificador)
		Catch ex As Exception
			Throw ex
		End Try
	End Sub
	Public Sub ConsultaCD_Empresas(ByRef Grid As System.Web.UI.WebControls.GridView, ByVal CD_Empresas As CD_Empresas, ByVal conexion As String, ByRef List As System.Collections.Generic.List(Of CD_Empresas))
		Try
			Dim claseCapaDatos As New CapaDatos.CD_CD_Empresas()
			claseCapaDatos.ConsultaCD_Empresas(CD_Empresas, conexion, List)

			Grid.DataSource = List
			Grid.DataBind()
		Catch ex As Exception
			Throw ex
		End Try
	End Sub
	Public Sub ModificarCD_Empresas(ByVal CD_Empresas As CD_Empresas, ByVal conexion As String, ByRef Verificador As Integer)
		Try
			Dim claseCapaDatos As New CapaDatos.CD_CD_Empresas()
			claseCapaDatos.ModificarCD_Empresas(CD_Empresas, conexion, Verificador)
		Catch ex As Exception
		Throw ex
		End Try
	End Sub

End Class